Alexandre, boa tarde

Estamos no caminho certo, mas coloquei na planilha alguns pontos para alcançar o objetivo, da uma olhada na planilha.

silva_jmp

Boa noite!!!
Vou deixar as partes vermelhas com você, caso tenha problema retorne, não se esqueça da mãozinha
Troque seu modulo 8 pelo código..

Option Explicit

Sub Click_Maozinha()
    Dim i As Long
    Application.ScreenUpdating = False
     
    For i = 0 To 6
        If Range("D20").Offset(i) <> "" Then
            Call Lookups(Range("D20").Offset(i), Range("E20:J20").Offset(i))
        Else
            Range("E20:J20").Offset(i).ClearContents
        End If
    Next
    Call Ordem
    Application.ScreenUpdating = True
End Sub
 
Private Sub Lookups(ByVal LookupValue As Variant, ByRef Target As Range)
     
    With Target
         
        .Cells(1, 1).Value = Application.VLookup(LookupValue, Range("RelVenda!$A$1:$R$5000"), 6, False) 'Item
        .Cells(1, 2).Value = Application.VLookup(LookupValue, Range("RelVenda!$A$1:$R$5000"), 7, False) 'Código
        .Cells(1, 3).Value = Application.VLookup(LookupValue, Range("RelVenda!$A$1:$R$5000"), 8, False) 'Descrição
        .Cells(1, 4).Value = Application.VLookup(LookupValue, Range("RelVenda!$A$1:$R$5000"), 9, False) 'Quantidade
        .Cells(1, 5).Value = Application.VLookup(LookupValue, Range("RelVenda!$A$1:$R$5000"), 10, False) 'Unidade
        .Cells(1, 6).Value = Application.VLookup(LookupValue, Range("RelVenda!$A$1:$R$5000"), 11, False) 'Preço Unitário
    End With
End Sub

Sub Ordem()
 ActiveWorkbook.Worksheets("PedVenda").Sort.SortFields.Clear
 ActiveWorkbook.Worksheets("PedVenda").Sort.SortFields.Add Key:=Range("E19"), _
  SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
  xlSortTextAsNumbers
 With ActiveWorkbook.Worksheets("PedVenda").Sort
  .SetRange Range("E19:J26")
  .Header = xlYes
  .MatchCase = False
  .Orientation = xlTopToBottom
  .SortMethod = xlPinYin
  .Apply
 End With


End Sub

Olá pessoal, tudo bem...

Blz, Alexandre, adaptei as outras pendencias e troquei o código conforme você me passou, funcionou, mas os itens não estão em sequencia nas linhas.

Segue em anexo para visualização e entendimento da necessidade.

silva_jmp

Boa tarde!!!

Silva, eu entendi mas, para isso vou ter que mudar a ordem de classificação.

No entanto a coluna Item e a coluna Código, ficaram com ordem diferente pois o primeiro critério de classificação seria por Descrição.

Para compreender melhor, faça uma classificação manual no excel.

Att